home *** CD-ROM | disk | FTP | other *** search
/ Adventure Games / Adventure Games 1.iso / panic / panic.exe / panic.DXR / 00297.ls < prev    next >
Encoding:
Text File  |  1995-08-24  |  234 b   |  10 lines
  1. global gFortuneCategory, gFortuneCategorySprite
  2.  
  3. on mouseDown
  4.   set whichSprite to the clickOn
  5.   if pressButton(whichSprite) then
  6.     set gFortuneCategory to whichSprite - gFortuneCategorySprite + 1
  7.     go(the frame + 1)
  8.   end if
  9. end
  10.